$c=$p=1; while ($c -lt 100) { $c; $c,$p = ($c+$p),$c }